home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9303.ZIP;1 / RUBEL.ZIP / SAMPLE.PRG < prev   
Encoding:
Text File  |  1993-02-10  |  285 b   |  23 lines
  1. Sample Password Code
  2.  
  3. DO CASE             &&  from a menu
  4.  
  5.   CASE m_choice = "Add"
  6.     DO add_it
  7.  
  8.   CASE m_choice = "Edit"
  9.     DO edit_it
  10.  
  11.   CASE m_choice = "Delete"
  12.  
  13.     IF m->mypassword = "BLATZ"
  14.       DO delete_it
  15.     ELSE
  16.       ?? chr(7)
  17.  
  18. ENDCASE
  19.  
  20. ********
  21.  
  22.  
  23.